home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / totdem.arc / DEMBX2.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-10  |  678b  |  27 lines
  1. Program DemoBoxTwo;
  2. {DEMBX2}
  3.  
  4. USES DOS,CRT, totFAST;
  5.  
  6. begin
  7.    with Screen do
  8.    begin
  9.       Clear(white,chr(178));
  10.       TitledBox(1,1,19,10,27,31,30,1,'Default');
  11.       TitledBox(21,1,39,10,27,31,30,1,'_Bottom');
  12.       TitledBox(41,1,59,10,27,31,30,1,'|Drop Box');
  13.       TitledBox(61,1,80,10,27,31,30,1,'<Left');
  14.       TitledBox(1,12,19,22,27,31,30,1,'>Right');
  15.       TitledBox(21,12,39,22,27,31,30,1,'_<Bottom Left');
  16.       TitledBox(41,12,59,22,27,31,30,1,'>|Drop Right');
  17.       TitledBox(61,12,80,22,27,31,30,1,'< Spaced Left ');
  18.       WriteCenter(24,white,'You get the idea!');
  19.       repeat until keypressed;
  20.       GotoXY(1,25);
  21.    end;
  22. end.
  23.  
  24.  
  25.  
  26.  
  27.